home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tm480.zip
/
TMEXAM.EXE
/
NATO.TSK
< prev
next >
Wrap
Text File
|
1991-09-10
|
2KB
|
74 lines
; Title : NATO.TSK Last Updated : June 5, 1991
; Author : Steve Johnson - FmP. Version : 1.01
; Purpose : Nato Phonetic alphabet
; Latest : NATO variants used thrughout
hexvar cr,0d
hexvar esc,1b
define locx,4
int column
int i
int j
int locy
int line
vconst cls,11 ;clear screen
vconst dim,40 ;low intensity
vconst bright,41 ;high intensity
vconst attn,79 ;arresting colour
vconst normal,5 ;normal colour
vconst std,71 ;alternative arresting colour
VAR PHONES,8,OCCURS 27,
'ALPHA BRAVO CHARLIE DELTA ECHO FOXTROT GOLF '
'HOTEL INDIA JULIET KILO LIMA METRO NOVEMBER'
'OSCAR PAPA QUEBEC ROMEO SIERRA TANGO UNIFORM '
'VICTOR WHISKEY XRAY YANKEE ZULU -space- '
var allowed,27,'ABCDEFGHIJKLMNOPQRSTUVWXYZ '
var char,1
var message,20
var word,8
END
display normal cls
displayln "Enter a message using A-Z and SPACE <any other key> to quit"
display attn
until char = cr or locx = 22
inkey char
if allowed ct char
display BRIGHT normal char
locate line column
move entry FCOL of phones to word
move locy to i
add 8 to i
if i > 79
increment locx
clear locy
fi
cursor locx locy dim std word
locate i j
cursor locx locy bright attn char ;make 1st bright
move i to locx
move j to locy
cursor line column
increment locy
else
stop
fi
fi
move true to key
until not key ;flush any extraneous characters typed
inkey
fi
STOP
ENDTASK
@video
@nf dummy
No forms required
@end
@eof